home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
bbs
/
pprd199.zip
/
BANNER.PL
< prev
next >
Wrap
Perl Script
|
1994-09-23
|
155b
|
10 lines
#!/usr/local/bin/perl
while (1)
{
exit 0 if read(STDIN,$c,1) == 0;
last if ($cl eq "\031" && $c eq "\001");
$cl = $c;
}
kill 'STOP',$$;
exit 0